home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / tpascal / bpvbx / vbapi_.asm < prev    next >
Encoding:
Assembly Source File  |  1993-09-14  |  7.0 KB  |  308 lines
  1. MASM
  2. .286
  3. _TEXT    segment byte use16 public 'CODE'
  4.   assume CS:_TEXT
  5.  
  6.     public    VBYTwipsToPixels,VBClientToScreen,VBGetPic,VBArrayBounds
  7.     public    VBArrayIndexCount,VBFreePic,VBXTwipsToPixels,VBArrayElement
  8.     public    VBXPixelsToTwips,VBSetControlFlags,VBYPixelsToTwips,VBTranslateColor
  9.     public    VBPicFromCF,VBResizeHlstr,VBGetClientRect,VBArrayFirstElem
  10.     public    VBRegisterModel,VBGetControlProperty,VBSetControlProperty,VBRestoreFPState
  11.     public    VBSendControlMsg,VBScreenToClient,VBPaletteChanged,VBRecreateControlHwnd
  12.     public    VBArrayElemSize,VBPasteLinkOk,VBDerefHsz,VBSetCapture
  13.     public    VBZOrder,VBDerefHlstrLen,VBGetControl,VBGetVersion
  14.     public    VBDestroyHsz,VBGetHlstr,VBIsControlEnabled,VBFireEvent
  15.     public    VBDialogBoxParam,VBCreateTempHlstr,VBUnlockHsz,VBReadFormFile
  16.     public    VBRelSeekFormFile,VBGetHwndControl,VBReleaseCapture,VBWriteFormFile
  17.     public    VBLinkPostAdvise,VBGetPicEx,VBCreateHlstr,__VBGetVersion
  18.     public    VBRefPic,VBGetControlRect,VBGetControlName,VBMoveControl
  19.     public    VBCbSaveFPState,VBDefControlProc,VBSuperControlProc,VBFormat
  20.     public    VBSeekFormFile,VBSetVariantValue,VBGetVariantValue,VBGetVariantType
  21.     public    VBCoerceVariant,VBRuntimeError,VBAllocPic,VBAllocPicEx
  22.     public    VBGetHlstrLen,VBDirtyForm,VBReserved0,VBGetRectInContainer
  23.     public    VBGetMode,VBGetControlModel,VBDerefZeroTermHlstr,VBReadBasicFile
  24.     public    VBReserved1,VBReserved2,VBGetControlHwnd,VBUpdateControl
  25.     public    VBDerefHlstr,VBDestroyHlstr,VBSetHlstr,VBGetAppTitle
  26.     public    VBLockHsz,VBIsControlVisible,VBLinkMakeItemName,VBReserved3
  27.     public    VBWriteBasicFile,VBSetErrorMessage,VBInvalidateRect,VBGetHInstance
  28.     public    VBGetCapture,VBDerefControl,VBCreateHsz
  29. VBRegisterModel:
  30.         mov    BX,0
  31.         jmp [dword ptr SS:020h]
  32. VBDerefControl:
  33.         mov    BX,4
  34.         jmp [dword ptr SS:020h]
  35. VBDefControlProc:
  36.         mov    BX,8
  37.         jmp [dword ptr SS:020h]
  38. VBFireEvent:
  39.         mov    BX,0Ch
  40.         jmp [dword ptr SS:020h]
  41. VBSetControlProperty:
  42.         mov    BX,010h
  43.         jmp [dword ptr SS:020h]
  44. VBGetControlProperty:
  45.         mov    BX,014h
  46.         jmp [dword ptr SS:020h]
  47. VBCreateHsz:
  48.         mov    BX,018h
  49.         jmp [dword ptr SS:020h]
  50. VBDestroyHsz:
  51.         mov    BX,01Ch
  52.         jmp [dword ptr SS:020h]
  53. VBDerefHsz:
  54.         mov    BX,020h
  55.         jmp [dword ptr SS:020h]
  56. VBLockHsz:
  57.         mov    BX,024h
  58.         jmp [dword ptr SS:020h]
  59. VBUnlockHsz:
  60.         mov    BX,028h
  61.         jmp [dword ptr SS:020h]
  62. VBGetControlHwnd:
  63.         mov    BX,02Ch
  64.         jmp [dword ptr SS:020h]
  65. VBRecreateControlHwnd:
  66.         mov    BX,030h
  67.         jmp [dword ptr SS:020h]
  68. VBGetControlModel:
  69.         mov    BX,034h
  70.         jmp [dword ptr SS:020h]
  71. VBSendControlMsg:
  72.         mov    BX,038h
  73.         jmp [dword ptr SS:020h]
  74. VBReadFormFile:
  75.         mov    BX,03Ch
  76.         jmp [dword ptr SS:020h]
  77. VBWriteFormFile:
  78.         mov    BX,040h
  79.         jmp [dword ptr SS:020h]
  80. VBSuperControlProc:
  81.         mov    BX,044h
  82.         jmp [dword ptr SS:020h]
  83. VBGetMode:
  84.         mov    BX,048h
  85.         jmp [dword ptr SS:020h]
  86. VBGetHInstance:
  87.         mov    BX,04Ch
  88.         jmp [dword ptr SS:020h]
  89. VBCreateHlstr:
  90.         mov    BX,050h
  91.         jmp [dword ptr SS:020h]
  92. VBSetHlstr:
  93.         mov    BX,054h
  94.         jmp [dword ptr SS:020h]
  95. VBDestroyHlstr:
  96.         mov    BX,058h
  97.         jmp [dword ptr SS:020h]
  98. VBDerefHlstr:
  99.         mov    BX,05Ch
  100.         jmp [dword ptr SS:020h]
  101. VBGetHlstrLen:
  102.         mov    BX,060h
  103.         jmp [dword ptr SS:020h]
  104. VBGetHwndControl:
  105.         mov    BX,064h
  106.         jmp [dword ptr SS:020h]
  107. VBXPixelsToTwips:
  108.         mov    BX,068h
  109.         jmp [dword ptr SS:020h]
  110. VBYPixelsToTwips:
  111.         mov    BX,06Ch
  112.         jmp [dword ptr SS:020h]
  113. VBXTwipsToPixels:
  114.         mov    BX,070h
  115.         jmp [dword ptr SS:020h]
  116. VBYTwipsToPixels:
  117.         mov    BX,074h
  118.         jmp [dword ptr SS:020h]
  119. VBReadBasicFile:
  120.         mov    BX,078h
  121.         jmp [dword ptr SS:020h]
  122. VBWriteBasicFile:
  123.         mov    BX,07Ch
  124.         jmp [dword ptr SS:020h]
  125. VBAllocPic:
  126.         mov    BX,080h
  127.         jmp [dword ptr SS:020h]
  128. VBFreePic:
  129.         mov    BX,084h
  130.         jmp [dword ptr SS:020h]
  131. VBGetPic:
  132.         mov    BX,088h
  133.         jmp [dword ptr SS:020h]
  134. VBRefPic:
  135.         mov    BX,08Ch
  136.         jmp [dword ptr SS:020h]
  137. VBPicFromCF:
  138.         mov    BX,090h
  139.         jmp [dword ptr SS:020h]
  140. VBSetErrorMessage:
  141.         mov    BX,094h
  142.         jmp [dword ptr SS:020h]
  143. VBGetAppTitle:
  144.         mov    BX,098h
  145.         jmp [dword ptr SS:020h]
  146. VBDialogBoxParam:
  147.         mov    BX,09Ch
  148.         jmp [dword ptr SS:020h]
  149. VBSeekFormFile:
  150.         mov    BX,0A0h
  151.         jmp [dword ptr SS:020h]
  152. VBRelSeekFormFile:
  153.         mov    BX,0A4h
  154.         jmp [dword ptr SS:020h]
  155. VBGetControlName:
  156.         mov    BX,0A8h
  157.         jmp [dword ptr SS:020h]
  158. VBReserved0:
  159.         mov    BX,0ACh
  160.         jmp [dword ptr SS:020h]
  161. VBReserved1:
  162.         mov    BX,0B0h
  163.         jmp [dword ptr SS:020h]
  164. VBReserved2:
  165.         mov    BX,0B4h
  166.         jmp [dword ptr SS:020h]
  167. VBReserved3:
  168.         mov    BX,0B8h
  169.         jmp [dword ptr SS:020h]
  170. __VBGetVersion:
  171.         mov    BX,0BCh
  172.         jmp [dword ptr SS:020h]
  173. VBLinkPostAdvise:
  174.         mov    BX,0C0h
  175.         jmp [dword ptr SS:020h]
  176. VBPasteLinkOk:
  177.         mov    BX,0C4h
  178.         jmp [dword ptr SS:020h]
  179. VBDirtyForm:
  180.         mov    BX,0C8h
  181.         jmp [dword ptr SS:020h]
  182. VBSetControlFlags:
  183.         mov    BX,0CCh
  184.         jmp [dword ptr SS:020h]
  185. VBPaletteChanged:
  186.         mov    BX,0D0h
  187.         jmp [dword ptr SS:020h]
  188. VBAllocPicEx:
  189.         mov    BX,0D4h
  190.         jmp [dword ptr SS:020h]
  191. VBGetPicEx:
  192.         mov    BX,0D8h
  193.         jmp [dword ptr SS:020h]
  194. VBTranslateColor:
  195.         mov    BX,0DCh
  196.         jmp [dword ptr SS:020h]
  197. VBGetCapture:
  198.         mov    BX,0E0h
  199.         jmp [dword ptr SS:020h]
  200. VBSetCapture:
  201.         mov    BX,0E4h
  202.         jmp [dword ptr SS:020h]
  203. VBReleaseCapture:
  204.         mov    BX,0E8h
  205.         jmp [dword ptr SS:020h]
  206. VBGetControl:
  207.         mov    BX,0ECh
  208.         jmp [dword ptr SS:020h]
  209. VBZOrder:
  210.         mov    BX,0F0h
  211.         jmp [dword ptr SS:020h]
  212. VBMoveControl:
  213.         mov    BX,0F4h
  214.         jmp [dword ptr SS:020h]
  215. VBGetControlRect:
  216.         mov    BX,0F8h
  217.         jmp [dword ptr SS:020h]
  218. VBGetRectInContainer:
  219.         mov    BX,0FCh
  220.         jmp [dword ptr SS:020h]
  221. VBGetClientRect:
  222.         mov    BX,0100h
  223.         jmp [dword ptr SS:020h]
  224. VBClientToScreen:
  225.         mov    BX,0104h
  226.         jmp [dword ptr SS:020h]
  227. VBScreenToClient:
  228.         mov    BX,0108h
  229.         jmp [dword ptr SS:020h]
  230. VBIsControlVisible:
  231.         mov    BX,010Ch
  232.         jmp [dword ptr SS:020h]
  233. VBIsControlEnabled:
  234.         mov    BX,0110h
  235.         jmp [dword ptr SS:020h]
  236. VBInvalidateRect:
  237.         mov    BX,0114h
  238.         jmp [dword ptr SS:020h]
  239. VBUpdateControl:
  240.         mov    BX,0118h
  241.         jmp [dword ptr SS:020h]
  242. VBCoerceVariant:
  243.         mov    BX,011Ch
  244.         jmp [dword ptr SS:020h]
  245. VBGetVariantType:
  246.         mov    BX,0120h
  247.         jmp [dword ptr SS:020h]
  248. VBGetVariantValue:
  249.         mov    BX,0124h
  250.         jmp [dword ptr SS:020h]
  251. VBSetVariantValue:
  252.         mov    BX,0128h
  253.         jmp [dword ptr SS:020h]
  254. VBGetHlstr:
  255.         mov    BX,012Ch
  256.         jmp [dword ptr SS:020h]
  257. VBResizeHlstr:
  258.         mov    BX,0130h
  259.         jmp [dword ptr SS:020h]
  260. VBDerefHlstrLen:
  261.         mov    BX,0134h
  262.         jmp [dword ptr SS:020h]
  263. VBDerefZeroTermHlstr:
  264.         mov    BX,0138h
  265.         jmp [dword ptr SS:020h]
  266. VBCreateTempHlstr:
  267.         mov    BX,013Ch
  268.         jmp [dword ptr SS:020h]
  269. VBArrayElement:
  270.         mov    BX,0140h
  271.         jmp [dword ptr SS:020h]
  272. VBArrayBounds:
  273.         mov    BX,0144h
  274.         jmp [dword ptr SS:020h]
  275. VBArrayElemSize:
  276.         mov    BX,0148h
  277.         jmp [dword ptr SS:020h]
  278. VBArrayFirstElem:
  279.         mov    BX,014Ch
  280.         jmp [dword ptr SS:020h]
  281. VBArrayIndexCount:
  282.         mov    BX,0150h
  283.         jmp [dword ptr SS:020h]
  284. VBRuntimeError:
  285.         mov    BX,0154h
  286.         jmp [dword ptr SS:020h]
  287. VBFormat:
  288.         mov    BX,0158h
  289.         jmp [dword ptr SS:020h]
  290. VBCbSaveFPState:
  291.         mov    BX,015Ch
  292.         jmp [dword ptr SS:020h]
  293. VBRestoreFPState:
  294.         mov    BX,0160h
  295.         jmp [dword ptr SS:020h]
  296. VBLinkMakeItemName:
  297.         mov    BX,0164h
  298.         jmp [dword ptr SS:020h]
  299. VBGetVersion:
  300.         cmp    [word ptr SS:020h],0BCh
  301.         je    @@Version1
  302.         jmp    __VBGetVersion
  303. @@Version1:
  304.         mov    AX,0100h
  305.         retf
  306. _TEXT ENDS
  307.     END
  308.